home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / comms / other / amicomsys / install < prev    next >
Text File  |  1999-06-14  |  10KB  |  224 lines

  1. ; Install script for AmiComSys 1.25a 68020+/Kick 3.0
  2. ;
  3. ; $VER: AmiComSys-install 1.36 (23.05.99) Håkan Parting
  4. (set highcpu 1)
  5.  
  6. ; ** set system variables **
  7. (set cpu (database "cpu"))
  8. (if (= cpu 68000) (set #cpu 0))
  9. (if (= cpu 68010) (set #cpu 1))
  10. (if (= cpu 68020) (set #cpu 2))
  11. (if (= cpu 68030) (set #cpu 3))
  12. (if (= cpu 68040) (set #cpu 4))
  13. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  14. (set osver (/ (getversion) 65536))
  15.  
  16. ; set texts
  17. (set #nonlist "AmiComSys requires the MUI-costum-class\nNList.mcc version 19+ by Gilles Masson\n\nIt must be installed before AmiComSys\nPlease, download it from Aminet:dev/mui/MCC_NList0.85.lha\nAnd install it with the included installer script\nThen try to install AmiComSys again ...")
  18. (set #nomui "AmiComSys requires Magic User Interface (MUI) 3.8!\n\nYou can find it on Aminet:dev/gui/mui38usr.lha")
  19. (set #wrongcpu0 "This archive does only include a version for 68020/kickstart 3.0 and\nhigher.\n\nYou may download a 68000 version from\nhttp://amicomsys.tibb.at\nAt the bottom of the page\n\nInstallation is aborted")
  20. (set #wrongcpu2 "This archive does only include a version for 68000/Kickstart 2.0 and\nhigher. A version for 68020 and higher is available\nat http://amicomsys.tibb.at\nor\nAminet:comm/net/AmiComSysMUI.lha")
  21. (set #seldocs "Select which documentation you want to install!")
  22. (set #selscr "Do you want to install the following Arexx-scripts?\nThey may be executed at different occasions.\nIf you already have a costum version of these you\nshould not check the checkboxes infront of the names.")
  23. (set #selscrhelp "The NotifyArexx.amicomsys may be executed when someone is\nconnecting or disconnecting. A simple example is included in this\narchive, but a more versatile one can be found at\nAminet:comm/net/ACS-Notify.lha and is written by Scott Beardwood\nThe MessageArexx.amicomsys script may be executed when someone\nmessage you. There is a simple example script in this archive.\nThese scripts does only work if you have registered AmiComSys.")
  24. (set #selimages "Do you want to use the 20 colour-(NewIcons-style)-graphics-buttons\nor the 8 colour-(MagicWB-style)-graphics-buttons?")
  25. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.\nIf you have screen size that is smaller than 640x512 then\nbetter choose the NewIcons graphics set, because the MagicWB one\nis to big.\nNote that the NewIcons 3/4 does not have to be installed\nto use the 20 colour-images!")
  26. (set #readmefile "AmiComSysMUI1.25a.readme");
  27. (set #notextinput "If you are using Amiga Kickstart 36, 37 or 38\nAmiComSys requires the costum MUI class\nTextinput.mcc.\nThis class couldn't be found in\nyour LIBS:/mui directory.\n\nPlease download it from\nftp://ftp.vapor.com/misc/textinpt_13.XX.lzx\nwhere XX is 34 or higher.");
  28. (set #stringtext "")
  29. (set #wrongos "This version of AmiComSys requires Kickstart 3.0+\nThere is Kickstart 2.0 version available at the\nhome page.")
  30. (if (> osver 38) (set #stringtext "BetterString.mcc © Allan Odgaard\n"))
  31. (if (= highcpu 0) (set #cputext "68000/OS2.0+ version\n"))
  32. (if (= highcpu 1) (set #cputext "68020+/OS3.0+ version\n"))
  33.  
  34.  
  35. (message
  36.      "Welcome to the AmiComSys 1.25a installer!\n\n"
  37.     "You may either use this for a first\n"
  38.     "time install or for updating a former\n"
  39.     "version of AmiComSys.\n\n"
  40.     "AmiComSys © Håkan Parting 1997-1999\n"
  41.     #cputext
  42.     "Requires:\n"
  43.     "MUI 3.8+ © Stefan Stuntz\n"
  44.     "AMarquee V49+ © Jeremy Friesner & Håkan Parting\n"
  45.     "NList.mcc 19+ © Gilles Masson\n"
  46.     "Toolbar.mcc 15.5+ © Benny Kjær Nielsen\n"
  47.     #stringtext    
  48. )
  49.  
  50. (message
  51.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
  52. )
  53.  
  54. ;(if (< osver 39) (exit #wrongos))
  55.  
  56. (if (< (exists "MUI:") 2) (exit #nomui) )
  57. (if (exists "LIBS:muimaster.library") (
  58.     (set muiver (/(getversion "LIBS:muimaster.library") 65536))
  59. ))
  60. (if (< muiver 19) ( 
  61.     (exit #nomui)
  62. ))
  63.  
  64. (set muiver 0)
  65. (if (exists "LIBS:MUI/NList.mcc") (
  66.     (set muiver (/(getversion "LIBS:MUI/NList.mcc") 65536))
  67. ))
  68. (if (< muiver 19) ( 
  69.     (exit #nonlist)
  70. ))
  71.  
  72. (welcome)
  73. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  74.                          "68040" "68060"
  75.                     )
  76.                 (prompt "Please, select the processor your Amiga have")
  77.                 (help   "Recommended is to leave it as default")
  78.                   (default #cpu)
  79.           )
  80. )
  81.  
  82. (if (= highcpu 1) (if (< cpuVal 2) (exit #wrongcpu0) ))
  83. (if (= highcpu 0) (if (> cpuVal 1) (message #wrongcpu2) ))
  84.  
  85. (set DefDir (getassign "MIAMI"))
  86. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  87. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  88.  
  89. (set #target (askdir    (prompt "Where do you want to install AmiComSys?\nA directory named AmiComSys will be created.")
  90.                         (help "Select a directory, where you want to install AmiComSys!\nA directory named AmiComSys will be created there.")
  91.                         (default DefDir)
  92. ))
  93.  
  94. (set instdir (tackon #target "AmiComSys"))
  95. (set @default-dest instdir)
  96.  
  97. (makedir instdir (infos))
  98. (if (< (exists (tackon instdir "pictures")) 2) (makedir (tackon instdir "pictures")) )
  99.  
  100. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  101.  
  102. ; copy over files
  103.  
  104. (copyfiles (source "AmiComSys") (dest instdir) )
  105.  
  106. (if (= (exists (tackon instdir "AmiComSys.info")) 1)
  107. (
  108.     (makedir (tackon instdir "icons") (infos))
  109.     (copyfiles (source "AmiComSys.info") (dest (tackon instdir "icons")))
  110.     (message "The latest icon-file was copied to the icons directory of AmiComSys")
  111. )
  112. )
  113. (if (= (exists (tackon instdir "AmiComSys.info")) 0))
  114.     (copyfiles (source "AmiComSys.info") (dest instdir))
  115.  
  116.  
  117. ;(tooltype (dest (tackon instdir "AmiComSys")) (settooltype "PROGDIR" instdir) )
  118.  
  119. (copyfiles (source "Register") (dest (tackon instdir "Register")) (all) (infos))
  120.  
  121. (set imag (askchoice (choices "NewIcons (20 colours)" "MagicWB (8 colours)(640x512 or\nbetter screen size)" "I've installed a replacement\ngfx-set. Make sure it's done\nfor ACS 1.25!")
  122.                     (prompt #selimages)
  123.                     (help #selimageshelp)
  124.                     (default 0)
  125. ))
  126.  
  127. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  128. (if (= imag 1) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  129.  
  130. (copyfiles (source "Rexx") (pattern "~(NotifyArexx.amicomsys|MessageArexx.amicomsys)") (dest (tackon instdir "Rexx")))
  131.  
  132. (set arscrp (askoptions (choices "NotifyArexx.amicomsys" "MessageArexx.amicomsys")
  133.                     (prompt #selscr)
  134.                     (help #selscrhelp)
  135.                     (default 2)
  136. ))
  137.  
  138. (if (<> arscrp 0) (
  139.     (if (IN arscrp 0) (copyfiles (source "Rexx/NotifyArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  140.     (if (IN arscrp 1) (copyfiles (source "Rexx/MessageArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  141. ))
  142.  
  143. ; install docs
  144. (set docs (askoptions (choices "AmiComSysMUI.guide" "AmiComSys.readme" "BetterString.readme" "Toolbar.guide" "Readme.mui")
  145.                 (prompt #seldocs)
  146.                 (help #seldocs)
  147.                 (default 31)
  148. ))
  149.  
  150. (if (<> docs 0) (
  151.     (if (IN docs 1) (copyfiles (source #readmefile) (dest instdir) (newname "AmiComSys.readme") (infos) ) )
  152.     (if (IN docs 0) (
  153.         (set #doctarget (askdir (prompt "Where do you want to install the guide?")
  154.                 (default instdir)
  155.                 (help "Select where to install the documentation.\nRecommended is the AmiComSys directory\nor your HELP: directory.")
  156.         ))
  157.         (copyfiles (source "AmiComSysMUI.guide") (dest #doctarget) (infos))
  158.     ))
  159.     (if (IN docs 2) (
  160.         (copyfiles (source "mui/libs/mui/BetterString.doc") (dest instdir) (infos))
  161.     ))
  162.     (if (IN docs 3) (
  163.         (copyfiles (source "mui/libs/mui/Toolbar.guide") (dest instdir) (infos))
  164.     ))
  165.     (if (IN docs 4) (
  166.         (copyfiles (source "Readme.mui") (dest instdir) (infos))
  167.     ))
  168. ))
  169.  
  170. ( if(= (askbool (prompt "Do you want to copy the AmiComSys executable to\nyour SYS:WBStartup drawer?\nThe tooltype PROGDIR will be set to your AmiComSys\ndirectory, so the program is able to find common files.")
  171.     (help "If you answer Yes, AmiComSys and AmiComSys.info will be\ncopied to your WBStartup drawer.\nThen it will automatically start everytime your Amiga is booted")
  172.     (default 0)
  173.     ) 1) (
  174.         (copyfiles (source (tackon instdir "AmiComSys")) (dest "SYS:WBStartup") (all) (infos))
  175.         (tooltype (dest "SYS:WBStartup/AmiComSys") (settooltype "PROGDIR" instdir) )
  176.     )
  177. )
  178.  
  179. (if (> osver 38) (
  180. (copylib (prompt #prompt_copy "\n\nBetterString.mcc" )
  181.          (help @copylib-help)
  182.          (confirm "average")
  183.          (source "mui/libs/mui/BetterString.mcc")
  184.          (dest "MUI:libs/mui/")
  185.          (optional "oknodelete" "force")
  186. )
  187.  
  188. (copylib (prompt #prompt_copy "\n\nBetterString.mcp" )
  189.          (help @copylib-help)
  190.          (confirm "average")
  191.          (source "mui/libs/mui/BetterString.mcp")
  192.          (dest "MUI:libs/mui/")
  193.          (optional "oknodelete" "force")
  194. )
  195. (copylib (prompt #prompt_copy "\n\nToolbar.mcc" )
  196.          (help @copylib-help)
  197.          (confirm "average")
  198.          (source "mui/libs/mui/Toolbar.mcc")
  199.          (dest "MUI:libs/mui")
  200.          (optional "oknodelete" "force")
  201. )
  202.  
  203. (copylib (prompt #prompt_copy "\n\nToolbar.mcp" )
  204.          (help @copylib-help)
  205.          (confirm "average")
  206.          (source "mui/libs/mui/Toolbar.mcp")
  207.          (dest "MUI:libs/mui/")
  208.          (optional "oknodelete" "force")
  209. )
  210. ))
  211.  
  212. (copylib (prompt #prompt_copy "\n\nAmarquee.library" )
  213.          (help @copylib-help)
  214.          (confirm "average")
  215.          (source "libs/amarquee.library")
  216.          (dest "LIBS:")
  217.          (optional "oknodelete" "force")
  218. )
  219. (message "Thanks for using AmiComSys!\n\n"
  220.         "You should now start AmiComSys and configure it.\nMost important is that you enter a login name\nand your emailaddress.\nThe emailaddress is your unique name on server\nIt will not be visible for any other user.\n"
  221.         "\nPlease also read about the rules in the guide.\n"
  222.         "\nPlease support further development by registering. Read guide for more info.\n"
  223.         "120 SEK, 16 US DOLLAR, 10 POUNDS, or 30 D-MARK")
  224.